Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / poker.bas (.txt) < prev next >

Wrap

GW-BASIC | 1984-06-15 | 33.5 KB | 1,314 lines

10 KEY OFF:CLS 20 PRINT"LINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINE" 30 PRINT"LINEVARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLORLINE" 40 PRINT"LINECALL CALLLINE" 50 PRINT"LINECALL 2042-A.BAS CALLLINE" 60 PRINT"LINECALL BUCK MANN'S POKER CALLLINE" 70 PRINT"LINECALL CALLLINE" 80 PRINT"LINECALL CALLLINE" 90 PRINT"LINECALL BROUGHT TO YOU BY THE MEMBERS OF CALLLINE" 100 PRINT"LINECALL POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT POINTPOINTPOINTPOINTPOINT CALLLINE" 110 PRINT"LINECALL CSRLIN CSRLIN CSRLIN CSRLIN CSRLIN CSRLIN CALLLINE" 120 PRINT"LINECALL CSRLIN CSRLINPOINTPOINTPOINTCSRLIN CSRLIN CSRLIN CSRLIN CALLLINE" 130 PRINT"LINECALL CSRLIN CSRLIN CSRLIN CSRLIN CSRLIN CALLLINE" 140 PRINT"LINECALL POINTPOINTCSRLINPOINTPOINT CSRLIN CSRLINPOINTPOINTPOINTPOINT CSRLINPOINTPOINTPOINTCSRLIN CALLLINE" 150 PRINT"LINECALL CALLLINE" 160 PRINT"LINECALL International PC Owners CALLLINE" 170 PRINT"LINECALL CALLLINE" 180 PRINT"LINECALLP.O. Box 10426, Pittsburgh PA 15234CALLLINE" 190 PRINT"LINECALL CALLLINE" 200 PRINT"LINECLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'LINE" 210 PRINT"LINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINELINE" 220 PRINT 230 PRINT " PRESS ANY KEY TO CONTINUE 240 A$=INKEY$: IF A$="" THEN 240 250 CLS 1000 ' BUCK MANN'S POKER-FOR-0NE 1010 ' 1020 ' MICHAEL E. LIND 1030 ' 1465 BROWNLEAF DRIVE 1040 ' RICHMOND, VIRGINIA 23225 1050 ' 804-320-7646 1060 ' 01-10-1983 1070 ' 1075 KEY OFF 1080 CLEAR:CLOSE:A=FRE("") 1090 DEFINT A-Z 1100 OPTION BASE 1 1110 DIM A(52,2),B(52),C(52),D(5),E(13),F(4) 1120 DEF SEG=64:POKE 23,(PEEK(23) AND -65)+64 1130 DEF SEG: POKE 106,0 1140 ' 1150 ' MAINLINE ROUTINE 1160 ' 1170 GOSUB 3000 ' INTRODUCTION 1180 GOSUB 4000 ' PLAYING AREA 1190 GOSUB 5000 ' DEALER INTRO 1200 GOSUB 6000 ' SET UP ACCOUNT 1210 GOSUB 7000 ' PICK UP THE DECK 1220 GOSUB 8000 ' SHUFFLE THE DECK 1230 GOSUB 9000 ' ASK TO CUT DECK 1240 ' 10000 ' CUT CARDS 1250 GOSUB 11000 ' PLAYER MAKES BET 1260 GOSUB 12000 ' DEAL CARDS 1270 ' 13000 ' GO TO SEE SHARK 1280 GOSUB 14000 ' ASSIGN SUIT/RANK 1290 ' 15000 ' SHOW HAND VALUE 1300 ' 16000 ' SHOW CARDS, START 1310 ' 17000 ' SHOW CARDS, END 1320 ' 18000 ' OPEN 1330 GOSUB 19000 ' DETERMINE VALUE 1340 GOSUB 20000 ' DRAW CARDS 1350 GOSUB 21000 ' PAY OFF 1360 GOSUB 22000 ' DOUBLE OR NOTHING 1370 GOSUB 23000 ' RESET & RESTART 1380 GOSUB 24000 ' END & SAVE ACCT 1390 ' 59000 ' NO MONEY, END 1400 ' 60000 ' RANDOMIZE ROUTINE 1410 ' 61000 ' RELATIVE ROUTINE 1420 ' 62000 ' BUCKMANN ROUTINE 1430 END 1999 ' END OF MODULE 3000 ' OPENING GRAPHIC & MUSIC 3010 SCREEN 0,1,0,0:COLOR 7,0,0:CLS 3020 C$=STRING$(4,219) 3030 LOCATE 2,3,0:PRINT "The "; 3040 COLOR 23,0,0:PRINT "Original":PRINT:COLOR 4,0,0 3050 PRINT SPC(4)+CHR$(219)+CHR$(219)+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+C$+" "+CHR$(219)+" "+CHR$(219) 3060 PRINT SPC(4)+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219) 3070 PRINT SPC(4)+C$+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+CHR$(219)+CHR$(221) 3080 PRINT SPC(4)+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219) 3090 PRINT SPC(4)+C$+" "+C$+" "+C$+" "+CHR$(219)+" "+CHR$(219) 3100 COLOR 7,0,0:PRINT:PRINT 3110 PRINT SPC(10)+C$+" "+C$+" "+CHR$(219)+CHR$(221)+" "+CHR$(219)+" "+CHR$(219)+CHR$(221)+" "+CHR$(219) 3120 PRINT SPC(10)+CHR$(219)+CHR$(222)+CHR$(221)+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+CHR$(222)+" "+CHR$(219)+" "+CHR$(219)+CHR$(222)+" "+CHR$(219)+" '" 3130 PRINT SPC(10)+CHR$(219)+CHR$(222)+CHR$(221)+CHR$(219)+" "+C$+" "+CHR$(219)+CHR$(222)+CHR$(221)+CHR$(219)+" "+CHR$(219)+CHR$(222)+CHR$(221)+CHR$(219)+" "+CHR$(219)+CHR$(223)+CHR$(223) 3140 PRINT SPC(10)+CHR$(219)+CHR$(222)+CHR$(221)+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(221)+CHR$(219)+" "+CHR$(219)+" "+CHR$(221)+CHR$(219)+" "+CHR$(219)+CHR$(219)+CHR$(219) 3150 PRINT SPC(10)+CHR$(219)+CHR$(222)+CHR$(221)+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(222)+CHR$(219)+" "+CHR$(219)+" "+CHR$(222)+CHR$(219)+" "+CHR$(220)+CHR$(220)+CHR$(219) 3160 COLOR 1,0,0:PRINT :PRINT 3170 PRINT " "+C$+" "+C$+" "+CHR$(219)+" "+CHR$(219)+" "+C$+" "+CHR$(219)+CHR$(219)+CHR$(219)+CHR$(221) 3180 PRINT " "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+CHR$(223)+CHR$(223)+CHR$(223)+" "+CHR$(219)+" "+CHR$(219) 3190 PRINT " "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+CHR$(219)+CHR$(221)+" "+CHR$(219)+CHR$(220)+CHR$(220)+CHR$(220)+" "+CHR$(219)+CHR$(220)+CHR$(220)+CHR$(219); 3200 PRINT " FOR ONE" 3210 PRINT " "+C$+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+CHR$(219)+CHR$(221)+" "+CHR$(219)+CHR$(223)+CHR$(223)+CHR$(223)+" "+CHR$(219)+CHR$(219)+CHR$(219)+CHR$(221) 3220 PRINT " "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+" "+CHR$(219)+CHR$(220)+CHR$(220)+CHR$(220)+" "+CHR$(219)+" "+CHR$(219) 3230 PRINT " "+CHR$(219)+" "+C$+" "+CHR$(219)+" "+CHR$(219)+" "+C$+" "+CHR$(219)+" "+CHR$(219); 3240 COLOR 7,0,0:LOCATE 25,8:PRINT "Press any key to continue"; 3250 A$=INKEY$ 3260 Z=INT(RND*84) 3270 Z1=INT(Z/14) 3280 PLAY"L20T240MSO=Z1;N=Z;" 3290 IF A$<>"" THEN 3300 ELSE 3250 3300 DEF SEG: POKE 106,0 3310 PLAY"MBMSL20T240AAAAABBBCCBBBAAAAAP5GGGP5GGG" 3320 RETURN 3999 ' END OF MODULE 4000 ' PLAYING FIELD SCREEN 4010 COLOR 0,2,2:CLS 4020 LOCATE 1,1:COLOR 0,7,2:PRINT " The Original BUCK MANN's Poker-For-One ";:COLOR 0,2,2 4030 D$=STRING$(40,205):E$=STRING$(40,196) 4040 PRINT D$;:PRINT TAB(18) "DEALER":PRINT E$ 4050 LOCATE 9,1:PRINT D$; 4060 G$=STRING$(5,196) 4070 LOCATE 10,4:PRINT CHR$(218)+G$+CHR$(191)+CHR$(218)+G$+CHR$(191)+CHR$(218)+G$+CHR$(191)+CHR$(218)+G$+CHR$(191)+CHR$(218)+G$+CHR$(191); 4080 H$=STRING$(5,32) 4090 FOR A=11 TO 18 4100 LOCATE A,4:PRINT CHR$(179)+H$+CHR$(179)+CHR$(179)+H$+CHR$(179)+CHR$(179)+H$+CHR$(179)+CHR$(179)+H$+CHR$(179)+CHR$(179)+H$+CHR$(179); 4110 NEXT A 4120 LOCATE 19,4:PRINT CHR$(192)+G$+CHR$(217)+CHR$(192)+G$+CHR$(217)+CHR$(192)+G$+CHR$(217)+CHR$(192)+G$+CHR$(217)+CHR$(192)+G$+CHR$(217) 4130 LOCATE 9,1:PRINT D$ 4140 F$=STRING$(5,219) 4150 I$=STRING$(38,205) 4160 LOCATE 25,2:PRINT I$;:COLOR 0,7,2 4170 J$=STRING$(10,205) 4180 LOCATE 20,4:PRINT CHR$(201)+J$+CHR$(187);:COLOR 7,2,2 4190 LOCATE 20,16:PRINT CHR$(221):COLOR 0,2,2 4200 PRINT TAB(26);:COLOR 0,7,2 4210 LOCATE 20,27:PRINT CHR$(201)+J$+CHR$(187);:COLOR 7,2,2 4220 LOCATE 20,39:PRINT CHR$(221); 4230 FOR F=21 TO 23 4240 COLOR 0,7,2:LOCATE F,4:PRINT CHR$(186)+" "+CHR$(186); 4250 COLOR 7,2,2:LOCATE F,16:PRINT CHR$(221); 4260 COLOR 0,2,2:PRINT TAB(26); 4270 COLOR 0,7,2:LOCATE F,27:PRINT CHR$(186)+" "+CHR$(186); 4280 COLOR 7,2,2:LOCATE F,39:PRINT CHR$(221);:COLOR 0,2,2 4290 NEXT F 4300 COLOR 0,7,2:LOCATE 24,4:PRINT CHR$(200)+J$+CHR$(188); 4310 COLOR 7,2,2:LOCATE 24,16:PRINT CHR$(221); 4320 COLOR 0,2,2:PRINT TAB(26); 4330 COLOR 0,7,2:LOCATE 24,27:PRINT CHR$(200)+J$+CHR$(188); 4340 COLOR 7,2,2:LOCATE 24,39:PRINT CHR$(221); 4350 COLOR 0,7,2:LOCATE 21,6:PRINT "TOTAL $:"; 4360 LOCATE 21,29:PRINT " $ BET:"; 4370 RETURN 4999 ' END OF MODULE 5000 ' DEALER & PLAYER INTRO 5010 K$=STRING$(80,32) 5020 COLOR 0,2,2 5030 GOSUB 60000 ' RANDOMIZE 5040 B=(INT(RND*5)+1) 5050 ON B GOSUB 5410,5450,5490,5530,5570,5570 5060 FOR A=1 TO 4000: NEXT A 5070 LOCATE 6,1:PRINT K$; 5075 LOCATE 7,1:PRINT K$; 5080 LOCATE 6,3:PRINT "By the way, we always play ACES high"; 5090 LOCATE 7,3:PRINT "here at BUCK MANN's."; 5100 FOR A=1 TO 3000: NEXT A 5110 K$=STRING$(80,32) 5120 LOCATE 6,1:PRINT K$; 5125 LOCATE 7,1:PRINT K$; 5130 LOCATE 6,3:INPUT"What's your name";B$ 5140 IF B$="LOU" OR B$="LOUIS" OR B$="REGINA" OR B$="JOYCE" OR B$="NITA" THEN GOSUB 61000 ' THIS SEGMENT TO CHECK FOR RELATIVES PLAYING GAME 5150 IF LEFT$(B$,2)="Mr" THEN 5170 5160 IF B$<>"BUCK MANN" AND B$<>"BUCKMANN" AND B$<>"BUCK" THEN 5180 ELSE GOSUB 62000 ' THIS SEGMENT SET TO CHECK FOR BUCK MANN PLAYING POKER GAME 5170 RETURN 5180 IF LEN(B$)>10 THEN 5190 ELSE 5230 5190 LOCATE 6,1:PRINT K$; 5195 LOCATE 7,1:PRINT K$; 5200 LOCATE 6,3:PRINT "Quite a name but it's a bit long."; 5210 LOCATE 7,3:INPUT"Got a nickname";B$ 5220 IF LEN(B$)>10 THEN 5190 5230 IF LEN(B$)=0 THEN B$="FRIEND" 5240 BEEP 5250 LOCATE 6,1:PRINT K$; 5255 LOCATE 7,1:PRINT K$; 5260 LOCATE 6,3:PRINT B$+", do you have an account"; 5270 LOCATE 7,3:PRINT "here at BUCK MANN's? (Y/N)"; 5280 A$=INKEY$ 5290 IF A$="" THEN 5280 5300 IF A$="Y" OR A$="y" THEN RETURN 5310 DEF SEG: POKE 106,0 5315 LOCATE 7,1:PRINT K$; 5320 LOCATE 6,1:PRINT K$; 5330 LOCATE 6,3:PRINT "That's okay, "+B$+", you can open"; 5340 LOCATE 7,3:PRINT "one later on."; 5350 FOR A=1 TO 3000: NEXT A 5360 LOCATE 6,1:PRINT K$; 5365 LOCATE 7,1:PRINT K$; 5370 LOCATE 6,3:PRINT "We can play with cash, no problem."; 5380 LOCATE 7,3:INPUT"How much you got";ACCT$ 5390 LOCATE 6,1:PRINT K$; 5400 RETURN 5410 ' DEALER IS P.C. 5420 LOCATE 6,3:PRINT "Hello, friend. My name is P.C. and"; 5430 LOCATE 7,3:PRINT "I'll be dealing here at BUCK MANN's."; 5440 RETURN 5450 ' DEALER IS SHIFTY 5460 LOCATE 6,3:PRINT "Shifty's the name and I play fast."; 5470 LOCATE 7,3:PRINT "And no, you ain't seen me before."; 5480 RETURN 5490 ' DEALER IS WIMPIE 5500 LOCATE 6,3:PRINT "They call me Wimpie. I don't want"; 5510 LOCATE 7,3:PRINT "no trouble, friend, so let's play."; 5520 RETURN 5530 ' DEALER IS EMMA 5540 LOCATE 6,3:PRINT "I be Emma and I don't talk too good."; 5550 LOCATE 7,3:PRINT "But I deals real good. REAL GOOD!"; 5560 RETURN 5570 ' DEALER IS BIG LOU 5580 LOCATE 6,3:PRINT "The first drink is on me, Big Lou."; 5590 LOCATE 7,3:PRINT "Use your winnings after that."; 5600 RETURN 5999 ' END OF MODULE 6000 ' SET UP ACCOUNT 6010 DEF SEG: POKE 106,0 6020 ON ERROR GOTO 6490 6030 IF A$="Y" OR A$="y" THEN 6040 ELSE 6110 6040 DEF SEG: POKE 106,0 6050 PLAYACCT$=LEFT$(B$,8)+".ACC" 6060 OPEN PLAYACCT$ FOR INPUT AS #1 6070 INPUT#1,ACCT$ 6080 INPUT#1,LOAN$ 6090 INPUT#1,LAST$ 6100 CLOSE#1 6110 ' READ ACCOUNT AMOUNT 6120 LOAN!=VAL(LOAN$) 6130 DEF SEG: POKE 106,0 6140 IF VAL(ACCT$)>0 THEN 6320 6150 G=G+1: IF G>1 THEN 6580 6160 LOCATE 6,1:PRINT K$; 6170 PLAY"MB":SOUND 100,15 6175 LOCATE 7,1:PRINT K$; 6180 LOCATE 6,3:PRINT "Nothing! You MUST have something!"; 6190 LOCATE 7,3:PRINT " (Y/N)"; 6200 A$=INKEY$ 6210 IF A$="" THEN 6200 6220 IF A$="Y" OR A$="y" THEN 6690 6230 IF A$="N" OR A$="n" THEN 6260 6240 DEF SEG: POKE 106,0 6250 GOTO 6200 6260 DEF SEG: POKE 106,0 6270 LOCATE 6,1:PRINT K$; 6280 LOCATE 6,3:PRINT "Ya' wanna' see Sharky? (Y/N)"; 6290 A$=INKEY$ 6300 IF A$="" THEN 6290 6310 IF A$="Y" OR A$="y" THEN GOSUB 13000 ELSE 6580 6320 DEF SEG: POKE 106,0 6330 LOCATE 6,1:PRINT K$; 6335 LOCATE 7,1:PRINT K$; 6340 LOCATE 6,3:PRINT "Just a minute while I count....."; 6350 FOR A=1 TO 2500:NEXT A 6360 LOCATE 7,3:PRINT "Here's your chips, "+B$+"."; 6370 PLAY"L50MBMSO5T70AP6AP6AP6AP8" 6380 FOR A=1 TO 1700:NEXT A 6390 COLOR 0,7,2 6400 IF LEN(ACCT$)>8 THEN ACCT$=LEFT$(ACCT$,8) 6410 LOCATE 23,(14-LEN(ACCT$)) 6420 PRINT ACCT$; 6430 COLOR 0,2,2 6440 LOCATE 6,1:PRINT K$; 6445 LOCATE 7,1:PRINT K$; 6450 LOCATE 6,3:PRINT "Let me shuffle the deck and we can"; 6460 LOCATE 7,3:PRINT "begin......."; 6470 FOR A=1 TO 2500: NEXT A 6480 RETURN 6490 ' NO ACCOUNT ON FILE 6500 IF ERR<>53 THEN RESUME 6750 6510 LOCATE 6,1:PRINT K$; 6520 SOUND 1500,5 6530 LOCATE 6,3:PRINT "Sorry, but I can't find your account."; 6540 LOCATE 7,3:PRINT "How about cash? (Y/N)"; 6550 A$=INKEY$ 6560 IF A$="" THEN 6550 6570 IF A$<>"Y" AND A$<>"y" THEN 6580 ELSE 6690 6580 DEF SEG: POKE 106,0 6590 LOCATE 6,1:PRINT K$; 6595 LOCATE 7,1:PRINT K$; 6600 LOCATE 6,3:PRINT " NO MONEY !!!"; 6610 LOCATE 7,3:PRINT " BUCK don't care for your kind !!"; 6620 PLAY"L12MST120MBO1GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG" 6630 FOR A=1 TO 2500:NEXT A 6640 LOCATE 6,1:PRINT K$; 6650 LOCATE 6,3:PRINT "Billy, THROW THIS DEADBEAT OUT !!!"; 6660 PLAY"L12MST120MBO1GAGAGAGAGAGAGAGAGAGAGAGAGAGAGAG" 6670 FOR A=1 TO 2500:NEXT A 6680 CLEAR: CLOSE: GOTO 100 6690 ' PLAY FOR CASH, NO ACCOUNT 6700 DEF SEG: POKE 106,0 6710 LOCATE 6,1:PRINT K$; 6715 LOCATE 7,1:PRINT K$; 6720 LOCATE 6,3:PRINT "Cash it is then, "+B$+"."; 6730 LOCATE 7,3:INPUT"How much you got";ACCT$ 6740 GOTO 6110 6750 ' UNRECOVERABLE ERROR 6760 CLS 6770 LOCATE 13,5:Y=ERR:PRINT Y 6780 LOCATE 15,5:Y=ERL:PRINT Y 6790 GOTO 6790 6999 ' END OF MODULE 7000 ' PICK UP FULL DECK FROM DATA 7010 FOR A=1 TO 52 7020 A(A,1)=A 7030 NEXT A 7040 RETURN 7999 ' END OF MODULE 8000 ' SHUFFLE THE DECK ONCE 8010 GOSUB 60000 ' RANDOMIZE ROUTINE 8020 FOR A=1 TO 52 8030 B=(INT(RND*52)+1) 8040 IF B<1 THEN B=1 8050 IF B>52 THEN B=52 8060 IF A(B,2)=0 THEN B(A)=A(B,1) ELSE 8030 8070 A(B,2)=1 8080 IF (A MOD 13)=0 THEN PLAY"L32MBMSO0T255N20N21N22N23N24N25N26N27N28N29N30N31P1" 8090 NEXT A 8100 E=1:F=5 8110 RETURN 8999 ' END OF MODULE 9000 ' ASK PLAYER TO CUT CARDS 9010 LOCATE 6,1:PRINT K$; 9015 LOCATE 7,1:PRINT K$; 9020 LOCATE 6,3:PRINT "Would you like to cut the deck?"; 9030 LOCATE 7,3:PRINT " (Y/N)"; 9040 A$=INKEY$ 9050 IF A$="" THEN 9040 9060 IF A$<>"Y" AND A$<>"y" THEN 9420 9070 DEF SEG: POKE 106,0 9080 LOCATE 6,1:PRINT K$; 9085 LOCATE 7,1:PRINT K$; 9090 LOCATE 6,3:PRINT "Alright, would you like a thick cut?"; 9100 LOCATE 7,3:PRINT " (Y/N)"; 9110 A$=INKEY$ 9120 IF A$="" THEN 9110 9130 IF A$="Y" OR A$="y" THEN 9520 9140 DEF SEG: POKE 106,0 9150 LOCATE 6,1:PRINT K$; 9155 LOCATE 7,1:PRINT K$; 9160 LOCATE 6,3:PRINT "A thin cut for you then?"; 9170 LOCATE 7,3:PRINT " (Y/N)"; 9180 A$=INKEY$ 9190 IF A$="" THEN 9180 9200 IF A$="Y" OR A$="y" THEN 9570 9210 DEF SEG: POKE 106,0 9215 LOCATE 7,1:PRINT K$; 9220 LOCATE 6,1:PRINT K$; 9230 LOCATE 6,3:PRINT "I thought you wanted to cut?"; 9240 LOCATE 7,3:PRINT " (Y/N)"; 9250 A$=INKEY$ 9260 IF A$="" THEN 9250 9270 IF A$<>"Y" AND A$<>"y" THEN 9420 9280 DEF SEG: POKE 106,0 9290 IF B$="BUCK" OR B$="BUCKMANN" OR B$="BUCK MANN" THEN 9220 9300 H=H+1:IF H>1 THEN 9310 ELSE 9000 9310 ' STUPID PLAYER CAN'T DECIDE 9315 LOCATE 6,1:PRINT K$; 9320 LOCATE 7,1:PRINT K$; 9330 LOCATE 6,3:PRINT "Look, "+B$+", I don't have time"; 9340 LOCATE 7,3:PRINT "for this crap!"; 9350 FOR A=1 TO 4000: NEXT A 9355 LOCATE 7,1:PRINT K$; 9360 LOCATE 6,1:PRINT K$; 9370 LOCATE 6,3:PRINT "BUCK MANN doesn't like jerks !!"; 9380 LOCATE 7,3:PRINT "Billy, toss this clown OUT !!"; 9390 PLAY"MBL12O3T200MSG-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-G-" 9400 FOR A=1 TO 4000: NEXT A 9410 CLEAR:CLOSE:GOTO 100 9420 ' PLAYER DOESN'T CUT 9430 DEF SEG: POKE 106,0 9440 LOCATE 6,1:PRINT K$; 9450 U=U+1:IF (U MOD 3)<>0 THEN 9480 9460 LOCATE 6,3:PRINT "You must trust me a lot, "+B$+"."; 9470 FOR A=1 TO 1500:NEXT A 9480 LOCATE 7,3:PRINT "No cut. Play `em like they lay....."; 9490 BEEP 9500 FOR A=1 TO 4000: NEXT A 9510 RETURN 9520 ' PLAYER LIKES A THICK CUT 9530 C=(INT(RND*21)+26) 9540 GOSUB 10000 9550 BEEP 9560 RETURN 9570 ' PLAYER LIKES A THIN CUT 9580 DEF SEG: POKE 106,0 9590 C=(INT(RND*21)+5) 9600 GOSUB 10000 9610 BEEP 9620 RETURN 9999 ' END OF MODULE 10000 ' CUT THE CARDS ONCE 10020 FOR A=1 TO 52 10030 IF A<=(52-C) THEN C(A)=B(C+A) 10040 IF A<=(52-C) THEN B(C+A)=0 10050 IF A>(52-C) THEN C(A)=B(A-52+C) 10060 IF A>(52-C) THEN B(A-52+C)=0 10070 NEXT A 10080 RETURN 10999 ' END OF MODULE 11000 ' PLAYER MAKES HIS BET 11010 DEF SEG: POKE 106,0 11020 IF VAL(ACCT$)<1 THEN GOSUB 13000 11030 IF VAL(ACCT$)<100 AND K<1 THEN GOTO 11310 11040 LOCATE 6,1:PRINT K$; 11046 L$ = STRING$(50,32) 11047 LOCATE 7,1 :PRINT L$ 11050 LOCATE 7,3:INPUT"What is your bet? ",BET$ 11060 IF LEN(BET$)=0 THEN BET$="0" 11070 IF VAL(BET$)>VAL(ACCT$) THEN 11250 11080 IF VAL(BET$)<1 THEN 11460 11090 BEEP 11100 LOCATE 6,1:PRINT K$; 11105 LOCATE 7,1:PRINT K$; 11110 LOCATE 6,3:PRINT "The bet is $ "+BET$+"."; 11120 FOR A=1 TO 1000:NEXT A 11130 LOCATE 7,3:PRINT "Your chips, please....."; 11140 L$=STRING$(8,32) 11150 COLOR 0,7,2:LOCATE 23,29:PRINT L$; 11160 LOCATE 23,(37-(LEN(BET$))):PRINT BET$; 11170 LOCATE 23,6:PRINT L$; 11180 ACCT!=(INT(VAL(ACCT$)-VAL(BET$))) 11190 ACCT$=STR$(ACCT!) 11200 BET!=VAL(BET$) 11210 LOCATE 23,(14-(LEN(ACCT$))):PRINT ACCT$ 11220 BEEP 11230 COLOR 0,2,2 11240 RETURN 11250 ' BET GREATER THAN ACCT BALANCE 11260 BEEP 11270 LOCATE 6,1:PRINT K$; 11275 LOCATE 7,1:PRINT K$; 11280 LOCATE 6,3:PRINT "Sorry, "+B$", but your bet is"; 11290 LOCATE 7,3:PRINT "more than you have."; 11300 FOR A=1 TO 4000: NEXT A 11310 K=K+1 11320 LOCATE 6,1:PRINT K$; 11325 LOCATE 7,1:PRINT K$; 11330 LOCATE 6,3:PRINT "Would you like to talk to `Sharky'?"; 11340 LOCATE 7,3:PRINT " (Y/N)"; 11350 A$=INKEY$ 11360 IF A$="" THEN 11350 11370 IF A$<>"Y" AND A$<>"y" THEN 11000 11380 DEF SEG: POKE 106,0 11390 FOR A=1 TO 2000: NEXT A 11400 LOCATE 6,1:PRINT K$; 11405 LOCATE 7,1:PRINT K$; 11410 LOCATE 6,3:PRINT "Just go thru that red door ....."; 11420 LOCATE 7,3:PRINT "Good Luck, "+B$+"!"; 11430 FOR A=1 TO 4000: NEXT A 11440 GOSUB 13000 11450 GOTO 11000 11460 ' PLAYER BET LESS THAN $ 1.00 11470 BEEP 11480 LOCATE 6,1:PRINT K$; 11485 LOCATE 7,1:PRINT K$; 11490 LOCATE 6,3:PRINT "Sorry, "+B$+", but you can't"; 11500 LOCATE 7,3:PRINT "bet "+BET$+"."; 11510 FOR A=1 TO 4000: NEXT A 11520 GOTO 11000 11999 ' END OF MODULE 12000 ' DEAL FIVE CARDS TO PLAYER 12010 FOR A=E TO F 12020 IF B(A)=0 THEN D(A)=C(A) ELSE D(A)=B(A) 12030 IF D(A)=B(A) THEN B(A)=0 12040 IF D(A)=C(A) THEN C(A)=0 12050 NEXT A 12060 RETURN 12999 ' END OF MODULE 13000 ' GO TO SEE SHARKY 13010 FOR A=1 TO 3000:NEXT A 13020 LOCATE 6,1:PRINT K$; 13030 COLOR 26,2,2:LOCATE 3,18:PRINT "SHARKY"; 13040 IF LOAN!<100000 THEN 13100 13050 COLOR 10,2,2:LOCATE 6,3:PRINT "NO MORE LOANS, "+B$+" !!!"; 13060 LOCATE 7,3:PRINT "You already owe me $"+LOAN$+"."; 13070 PLAY"MBL2T255MNO2GGGGGAGGGGGG+" 13080 FOR A=1 TO 4000:NEXT A 13090 RETURN 59000 13100 PLAY"MBL58T175MLO0G2P60G2P60G2P60GG-GG-GG-GG-GG-GG-GG-GG-GG-GG-GG-GG-GG-" 13105 LOCATE 7,1:PRINT K$; 13110 COLOR 10,2,2:LOCATE 6,3:PRINT "Ya' want a loan, right? (Y/N)"; 13120 A$=INKEY$ 13130 IF A$="" THEN 13120 13140 IF A$="Y" OR A$="y" THEN 13150 ELSE 13580 13150 ' PLAYER WANTS A LOAN 13160 DEF SEG: POKE 106,0 13170 BEEP 13180 LOCATE 6,1:PRINT K$; 13190 LOCATE 6,3:PRINT "Okay, "+B$+", my friend."; 13200 LOCATE 7,3:INPUT"How much? ",LOAN1$ 13210 IF VAL(LOAN1$)<1000 THEN 13670 13220 IF VAL(LOAN1$)>50000 THEN 13240 13230 GOTO 13310 13240 ' LOAN TOO BIG 13250 PLAY"mbl10t150mlo1gdgdgdgdgdgdgdgdgdgdgdgdg" 13260 LOCATE 6,1:PRINT K$; 13270 LOCATE 6,3:PRINT "Sorry, "+B$+", but that's too"; 13280 LOCATE 7,3:PRINT "much for me to loan you."; 13290 FOR A=1 TO 4000: NEXT A 13300 GOTO 13150 13310 ' LOAN OKAY 13320 LOCATE 6,1:PRINT K$; 13330 LOCATE 6,3:PRINT "These are my terms. I give you "; 13340 LOCATE 7,3:PRINT "half and I keep half as `interest'."; 13350 FOR A=1 TO 4000:NEXT A 13360 LOCATE 6,1:PRINT K$; 13370 LOCATE 6,3:PRINT "You still have to pay me the whole"; 13380 LOCATE 7,3:PRINT "amount back, $ "+LOAN1$+"."; 13390 FOR A=1 TO 4000:NEXT A 13400 LOCATE 6,1:PRINT K$; 13410 LOCATE 6,3:PRINT "Do you still want a loan from me?"; 13420 LOCATE 7,3:PRINT " (Y/N)"; 13430 A$=INKEY$ 13440 IF A$="" THEN 13430 13450 IF A$<>"Y" AND A$<>"y" THEN 13580 13460 DEF SEG: POKE 106,0 13470 HALF!=(INT(VAL(LOAN1$)/2)) 13480 HALF$=STR$(HALF!) 13490 LOCATE 6,1:PRINT K$; 13495 LOCATE 7,1:PRINT K$; 13500 LOCATE 6,3:PRINT "Fine, fine! Here's your $"+HALF$+"!"; 13510 LOCATE 7,3:PRINT "Be sure to stay in town, "+B$+"."; 13520 BEEP:FOR A=1 TO 400:NEXT A:BEEP 13530 ACCT!=VAL(ACCT$)+(INT(VAL(LOAN1$)/2)) 13540 ACCT$=STR$(ACCT!) 13550 COLOR 0,7,2:LOCATE 23,6:PRINT L$; 13560 LOCATE 23,(14-(LEN(ACCT$))):PRINT ACCT$; 13570 FOR A=1 TO 4500: NEXT A 13580 ' END OF LOAN SEQUENCE 13590 DEF SEG: POKE 106,0 13600 IF VAL(ACCT$)<1 THEN 59000 13610 LOAN1!=VAL(LOAN1$) 13620 LOAN!=LOAN!+LOAN1! 13630 LOAN$=STR$(LOAN!) 13640 COLOR 0,2,2:LOCATE 6,1:PRINT K$; 13650 LOCATE 3,18:PRINT "DEALER"; 13660 RETURN 13670 ' LOAN TOO SMALL 13680 LOCATE 6,1:PRINT K$; 13690 LOCATE 6,3:PRINT "That's chickenfeed!"; 13700 PLAY"mbl11t255mso2gg-gg-gg-gg-gg-gg-gg-gg-gg-gg-gg-gg-gg-" 13710 FOR A=1 TO 4000: NEXT A 13720 GOTO 13150 13999 ' END OF MODULE 14000 ' DETERMINE SUIT & RANK 14010 FOR A=1 TO 5 14020 IF D(A)=0 THEN 14140 14030 IF D(A)<=13 THEN SUIT=1 14040 IF D(A)>13 AND D(A)<=26 THEN SUIT=2 14050 IF D(A)>26 AND D(A)<=39 THEN SUIT=3 14060 IF D(A)>39 THEN SUIT=4 14070 IF D(A)<=13 THEN RANK=D(A) 14080 IF D(A)>13 AND D(A)<=26 THEN RANK=D(A)-13 14090 IF D(A)>26 AND D(A)<=39 THEN RANK=D(A)-26 14100 IF D(A)>39 THEN RANK=D(A)-39 14110 F(SUIT)=F(SUIT)+1 14120 E(RANK)=E(RANK)+1 14130 GOSUB 16000 ' SHOW CARDS 14140 NEXT A 14150 RETURN 14999 ' END OF MODULE 15000 ' PRINT VALUE ON SCREEN 15010 VALUE$=STR$(VALUE) 15020 ON VALUE GOTO 15040,15070,15100,15130,15160,15190,15220,15250,15280,15310 15030 STOP 15040 ' NO PAIR 15050 HAND1$=" NO ":HAND2$=" PAIR ":HAND3$=L$:MULTIPLE!=0 15060 GOTO 15340 15070 ' ONE PAIR 15080 HAND1$=" ONE ":HAND2$=" PAIR ":HAND3$=L$:MULTIPLE!=1 15090 GOTO 15340 15100 ' TWO PAIR 15110 HAND1$=" TWO ":HAND2$=" PAIR ":HAND3$=L$:MULTIPLE!=2 15120 GOTO 15340 15130 ' THREE OF A KIND 15140 HAND1$="THREE OF":HAND2$=" A KIND ":HAND3$=L$:MULTIPLE!=3 15150 GOTO 15340 15160 ' STRAIGHT 15170 HAND1$="REGULAR ":HAND2$="STRAIGHT":HAND3$=L$:MULTIPLE!=5 15180 GOTO 15340 15190 ' FLUSH 15200 HAND1$="REGULAR ":HAND2$=" FLUSH ":HAND3$=L$:MULTIPLE!=8 15210 GOTO 15340 15220 ' FULL HOUSE 15230 HAND1$=" FULL ":HAND2$=" HOUSE ":HAND3$=L$:MULTIPLE!=10 15240 GOTO 15340 15250 ' FOUR OF A KIND 15260 HAND1$="FOUR OF ":HAND2$=" A KIND ":HAND3$=L$:MULTIPLE!=25 15270 GOTO 15340 15280 ' STRAIGHT FLUSH 15290 HAND1$="STRAIGHT":HAND2$=" FLUSH ":HAND3$=L$:MULTIPLE!=50 15300 GOTO 15340 15310 ' ROYAL STRAIGHT FLUSH 15320 HAND1$=" ROYAL ":HAND2$="STRAIGHT":HAND3$=" FLUSH ":MULTIPLE!=100 15330 GOTO 15340 15340 IF VALUE=10 THEN 15350 ELSE 15360 15350 COLOR 16,2,2:GOTO 15370 15360 COLOR 0,2,2 15370 LOCATE 20,18:PRINT HAND1$; 15380 LOCATE 21,18:PRINT HAND2$; 15390 LOCATE 22,18:PRINT HAND3$; 15400 LOCATE 23,18:PRINT " WINS "; 15410 MULTIPLE$=STR$(MULTIPLE!) 15420 HAND4$="BETx"+MULTIPLE$ 15430 LOCATE 24,(22-(LEN(HAND4$)\2)):PRINT HAND4$; 15440 BEEP:FOR A=1 TO 500:NEXT A:BEEP 15450 RETURN 15999 ' END OF MODULE 16000 ' SHOW CARDS ON SCREEN 16010 M=(5+(7*(A-1))) 16020 IF SUIT=1 OR SUIT=2 THEN COLOR 4,7,2 ELSE COLOR 0,7,2 16030 IF RANK=1 THEN 16170 16040 IF RANK=2 THEN 16270 16050 IF RANK=3 THEN 16370 16060 IF RANK=4 THEN 16470 16070 IF RANK=5 THEN 16570 16080 IF RANK=6 THEN 16670 16090 IF RANK=7 THEN 16770 16100 IF RANK=8 THEN 16870 16110 IF RANK=9 THEN 16970 16120 IF RANK=10 THEN 17070 16130 IF RANK=11 THEN 17170 16140 IF RANK=12 THEN 17270 16150 IF RANK=13 THEN 17370 16160 STOP 16170 ' DEUCES 16180 LOCATE 11,M:PRINT "2 "; 16190 LOCATE 12,M:PRINT H$; 16200 LOCATE 13,M:PRINT " "+CHR$(2+SUIT)+" "; 16210 LOCATE 14,M:PRINT H$; 16220 LOCATE 15,M:PRINT H$; 16230 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "; 16240 LOCATE 17,M:PRINT H$ 16250 LOCATE 18,M:PRINT " 2"; 16260 RETURN 16270 ' THREES 16280 LOCATE 11,M:PRINT "3 "; 16290 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "; 16300 LOCATE 13,M:PRINT H$; 16310 LOCATE 14,M:PRINT " "+CHR$(2+SUIT)+" "; 16320 LOCATE 15,M:PRINT H$; 16330 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "; 16340 LOCATE 17,M:PRINT H$; 16350 LOCATE 18,M:PRINT " 3"; 16360 RETURN 16370 ' FOURS 16380 LOCATE 11,M:PRINT "4 "; 16390 LOCATE 12,M:PRINT H$; 16400 LOCATE 13,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16410 LOCATE 14,M:PRINT H$; 16420 LOCATE 15,M:PRINT H$; 16430 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16440 LOCATE 17,M:PRINT H$; 16450 LOCATE 18,M:PRINT " 4"; 16460 RETURN 16470 ' FIVES 16480 LOCATE 11,M:PRINT "5 "; 16490 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16500 LOCATE 13,M:PRINT H$; 16510 LOCATE 14,M:PRINT " "+CHR$(2+SUIT)+" "; 16520 LOCATE 15,M:PRINT H$; 16530 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16540 LOCATE 17,M:PRINT H$; 16550 LOCATE 18,M:PRINT " 5"; 16560 RETURN 16570 ' SIXES 16580 LOCATE 11,M:PRINT "6 "; 16590 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16600 LOCATE 13,M:PRINT H$; 16610 LOCATE 14,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16620 LOCATE 15,M:PRINT H$; 16630 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16640 LOCATE 17,M:PRINT H$; 16650 LOCATE 18,M:PRINT " 6"; 16660 RETURN 16670 ' SEVENS 16680 LOCATE 11,M:PRINT "7 "; 16690 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16700 LOCATE 13,M:PRINT H$; 16710 LOCATE 14,M:PRINT " "+CHR$(2+SUIT)+" "; 16720 LOCATE 15,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16730 LOCATE 16,M:PRINT H$; 16740 LOCATE 17,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16750 LOCATE 18,M:PRINT " 7"; 16760 RETURN 16770 ' EIGHTS 16780 LOCATE 11,M:PRINT "8 "; 16790 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16800 LOCATE 13,M:PRINT " "+CHR$(2+SUIT)+" "; 16810 LOCATE 14,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16820 LOCATE 15,M:PRINT " "+CHR$(2+SUIT)+" "; 16830 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16840 LOCATE 17,M:PRINT H$; 16850 LOCATE 18,M:PRINT " 8"; 16860 RETURN 16870 ' NINES 16880 LOCATE 11,M:PRINT "9 "; 16890 LOCATE 12,M:PRINT H$; 16900 LOCATE 13,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16910 LOCATE 14,M:PRINT " "+CHR$(2+SUIT)+CHR$(2+SUIT)+CHR$(2+SUIT)+" "; 16920 LOCATE 15,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16930 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 16940 LOCATE 17,M:PRINT H$; 16950 LOCATE 18,M:PRINT " 9"; 16960 RETURN 16970 ' TENS 16980 LOCATE 11,M:PRINT "10 "; 16990 LOCATE 12,M:PRINT H$; 17000 LOCATE 13,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 17010 LOCATE 14,M:PRINT " "+CHR$(2+SUIT)+CHR$(2+SUIT)+CHR$(2+SUIT)+" "; 17020 LOCATE 15,M:PRINT " "+CHR$(2+SUIT)+CHR$(2+SUIT)+CHR$(2+SUIT)+" "; 17030 LOCATE 16,M:PRINT " "+CHR$(2+SUIT)+" "+CHR$(2+SUIT)+" "; 17040 LOCATE 17,M:PRINT H$; 17050 LOCATE 18,M:PRINT " 10"; 17060 RETURN 17070 ' JACKS 17080 LOCATE 11,M:PRINT "J "; 17090 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "; 17100 LOCATE 13,M:PRINT " J "; 17110 LOCATE 14,M:PRINT " A "; 17120 LOCATE 15,M:PRINT " C "; 17130 LOCATE 16,M:PRINT " K "; 17140 LOCATE 17,M:PRINT " "+CHR$(2+SUIT)+" "; 17150 LOCATE 18,M:PRINT " J"; 17160 RETURN 17170 ' QUEENS 17180 LOCATE 11,M:PRINT "Q "; 17190 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "; 17200 LOCATE 13,M:PRINT " Q "; 17210 LOCATE 14,M:PRINT " U "; 17220 LOCATE 15,M:PRINT " E "; 17230 LOCATE 16,M:PRINT " E "; 17240 LOCATE 17,M:PRINT " N"+CHR$(2+SUIT)+" "; 17250 LOCATE 18,M:PRINT " Q"; 17260 RETURN 17270 ' KINGS 17280 LOCATE 11,M:PRINT "K "; 17290 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "; 17300 LOCATE 13,M:PRINT " K "; 17310 LOCATE 14,M:PRINT " I "; 17320 LOCATE 15,M:PRINT " N "; 17330 LOCATE 16,M:PRINT " G "; 17340 LOCATE 17,M:PRINT " "+CHR$(2+SUIT)+" "; 17350 LOCATE 18,M:PRINT " K"; 17360 RETURN 17370 ' ACES 17380 LOCATE 11,M:PRINT "A "; 17390 LOCATE 12,M:PRINT " "+CHR$(2+SUIT)+" "; 17400 LOCATE 13,M:PRINT " A "; 17410 LOCATE 14,M:PRINT " C "; 17420 LOCATE 15,M:PRINT " E "; 17430 LOCATE 16,M:PRINT H$; 17440 LOCATE 17,M:PRINT " "+CHR$(2+SUIT)+" "; 17450 LOCATE 18,M:PRINT " A"; 17460 RETURN 17999 ' END OF MODULE 19000 ' DETERMINE HAND VALUE 19010 ' ROYAL STRAIGHT FLUSH 19020 IF E(9)=1 AND E(10)=1 AND E(11)=1 AND E(12)=1 AND E(13)=1 THEN 19030 ELSE 19070 19030 IF F(1)=5 OR F(2)=5 OR F(3)=5 OR F(4)=5 THEN 19040 ELSE 19070 19040 VALUE=10 19050 GOSUB 15000 19060 RETURN 19070 ' STRAIGHT FLUSH 19080 FOR A=1 TO 9 19090 IF E(A)=1 AND E(A+1)=1 AND E(A+2)=1 AND E(A+3)=1 AND E(A+4)=1 THEN 19120 19100 NEXT A 19110 GOTO 19160 19120 IF F(1)=5 OR F(2)=5 OR F(3)=5 OR F(4)=5 THEN 19130 ELSE 19160 19130 VALUE=9 19140 GOSUB 15000 19150 RETURN 19160 ' FOUR OF A KIND 19170 FOR A=1 TO 13 19180 IF E(A)=4 THEN 19210 19190 NEXT A 19200 GOTO 19240 19210 VALUE=8 19220 GOSUB 15000 19230 RETURN 19240 ' FULL HOUSE 19250 FOR A=1 TO 13 19260 IF E(A)=3 THEN 19290 19270 NEXT A 19280 GOTO 19360 19290 FOR A=1 TO 13 19300 IF E(A)=2 THEN 19330 19310 NEXT A 19320 GOTO 19360 19330 VALUE=7 19340 GOSUB 15000 19350 RETURN 19360 ' FLUSH 19370 FOR A=1 TO 4 19380 IF F(A)=5 THEN 19410 19390 NEXT A 19400 GOTO 19440 19410 VALUE=6 19420 GOSUB 15000 19430 RETURN 19440 ' STRAIGHT 19450 FOR A=1 TO 9 19460 IF E(A)=1 AND E(A+1)=1 AND E(A+2)=1 AND E(A+3)=1 AND E(A+4)=1 THEN 19490 19470 NEXT A 19480 GOTO 19520 19490 VALUE=5 19500 GOSUB 15000 19510 RETURN 19520 ' THREE OF A KIND 19530 FOR A=1 TO 13 19540 IF E(A)=3 THEN 19570 19550 NEXT A 19560 GOTO 19600 19570 VALUE=4 19580 GOSUB 15000 19590 RETURN 19600 ' TWO PAIRS 19610 FOR A=1 TO 13 19620 IF E(A)=2 THEN 19650 19630 NEXT A 19640 GOTO 19730 19650 FOR L=1 TO 13 19660 IF L=A THEN 19680 19670 IF E(L)=2 THEN 19700 19680 NEXT L 19690 GOTO 19730 19700 VALUE=3 19710 GOSUB 15000 19720 RETURN 19730 ' ONE PAIR 19740 FOR A=1 TO 13 19750 IF E(A)=2 THEN 19800 19760 NEXT A 19770 VALUE=1 19780 GOSUB 15000 19790 RETURN 19800 VALUE=2 19810 GOSUB 15000 19820 RETURN 19999 ' END OF MODULE 20000 ' DRAW CARDS IF NEEDED 20010 R=0 20020 LOCATE 6,1 20030 COLOR 0,2,2:LOCATE 6,1:PRINT K$; 20040 LOCATE 6,3:PRINT "There, "+B$+"." 20050 LOCATE 7,3:PRINT "Want to draw any cards? (Y/N)"; 20060 A$=INKEY$ 20070 IF A$="N" OR A$="n" THEN RETURN 20080 IF A$<>"Y" AND A$<>"y" THEN 20060 20090 DEF SEG:POKE 106,0 20100 LOCATE 6,1:PRINT K$; 20110 LOCATE 6,3:PRINT "Tell me if you want each card as I"; 20120 LOCATE 7,3:PRINT "point to it, "+B$+"."; 20130 FOR A=1 TO 2500:NEXT A 20140 FOR A=1 TO 5 20150 LOCATE 6,1:PRINT K$; 20155 LOCATE 7,1:PRINT K$; 20160 LOCATE 6,3:PRINT "Do you want this card? (Y/N)"; 20170 LOCATE 8,(4+(7*(A-1))):PRINT " "+CHR$(25)+" "; 20180 A$=INKEY$ 20190 IF A$="Y" OR A$="y" THEN GOSUB 20630 20200 IF A$="N" OR A$="n" THEN GOSUB 20700 20210 DEF SEG:POKE 106,0 20220 GOTO 20180 20230 NEXT A 20240 R$=STR$(R) 20250 IF R=1 THEN O$=" card" ELSE O$=" cards" 20260 LOCATE 6,1:PRINT K$; 20265 LOCATE 7,1:PRINT K$; 20270 LOCATE 6,3:PRINT "You're drawing"+R$+O$+", "+B$+"."; 20280 LOCATE 7,3:PRINT "Is this what you want? (Y/N)"; 20290 A$=INKEY$ 20300 IF A$="Y" OR A$="y" THEN 20340 20310 IF A$="N" OR A$="n" THEN 20590 20320 DEF SEG:POKE 106,0 20330 GOTO 20290 20340 DEF SEG:POKE 106,0 20350 BEEP 20360 FOR A=1 TO 5 20370 IF G(A)=0 THEN 20480 20380 FOR I=11 TO 18 20390 LOCATE I,(5+(7*(A-1))):PRINT H$; 20400 NEXT I 20410 N$=STRING$(39,32) 20420 LOCATE 8,1:PRINT N$; 20430 IF B(52)=0 THEN D(A)=C(6+S) 20440 IF B(52)=0 THEN C(6+S)=0 20450 IF B(52)>0 THEN D(A)=B(6+S) 20460 IF B(52)>0 THEN B(6+S)=0 20470 S=S+1 20480 NEXT A 20490 FOR A=1 TO 13 20500 E(A)=0 20510 NEXT A 20520 FOR A=1 TO 4 20530 F(A)=0 20540 NEXT A 20550 GOSUB 14000 20560 GOSUB 19000 20570 T=R:R=0:S=0 20580 RETURN 20590 ' ERASE ARROWS/OUT LINE 20600 N$=STRING$(39,32) 20610 LOCATE 8,1:PRINT N$; 20620 GOTO 20000 20630 ' KEEP THIS CARD 20640 DEF SEG:POKE 106,0 20650 PLAY"MBL10T120MNO4A+8" 20660 M$=STRING$(7,32) 20670 LOCATE 8,(4+(7*(A-1))):PRINT M$; 20680 G(A)=0 20690 RETURN 20230 20700 ' DISCARD THIS CARD 20710 DEF SEG:POKE 106,0 20720 PLAY"MBL10T120MNO4G-8" 20730 LOCATE 8,(4+(7*(A-1))):PRINT " OUT "; 20740 G(A)=1:R=R+1 20750 RETURN 20230 20999 ' END OF MODULE 21000 ' PAY OFF BETS 21010 DEF SEG:POKE 106,0 21020 LOCATE 6,1:PRINT K$; 21030 LOCATE 8,1:PRINT N$; 21040 ON VALUE GOSUB 21260,21310,21360,21410,21460,21510,21560,21610,21660,21710 21050 LOCATE 6,3:PRINT P1$; 21060 LOCATE 7,3:PRINT P2$; 21070 FOR A=1 TO 4000: NEXT A 21080 WIN!=BET!*MULTIPLE! 21090 WIN$=STR$(WIN!) 21100 ACCT!=ACCT!+WIN! 21110 ACCT$=STR$(ACCT!) 21120 LOCATE 6,1:PRINT K$; 21130 IF WIN!=0 THEN 21180 21140 LOCATE 6,3:PRINT "You've won $"+WIN$+"."; 21150 LOCATE 7,3:PRINT "I'll add it to your account....."; 21160 BEEP 21170 GOTO 21200 21180 LOCATE 6,3:PRINT "So much for that hand....."; 21190 LOCATE 7,3:PRINT "No win, "+B$+"."; 21200 FOR A=1 TO 4000: NEXT A 21210 IF LEN(ACCT$)>8 THEN ACCT$=LEFT$(ACCT$,8) 21220 ACCT!=VAL(ACCT$) 21230 COLOR 0,7,2:LOCATE 23,29:PRINT L$ 21240 LOCATE 23,(14-(LEN(ACCT$))):PRINT ACCT$;:COLOR 0,2,2 21250 RETURN 21260 ' NO PAIR 21270 P1$="Wow! "+B$+", you didn't say you" 21280 P2$="you were new at this game." 21290 PLAY"MBL10T190MNO0G-G-G-G-G-G-" 21300 RETURN 21310 ' ONE PAIR 21320 P1$="Ho, ho! What a hand!" 21330 P2$="House pays on the `BIG' pair." 21340 PLAY"MBL10T190MNO0ABCABCABCABC" 21350 RETURN 21360 ' TWO PAIR 21370 P1$="Not bad, "+B$+"." 21380 P2$="Two pair pays a little ..." 21390 PLAY"MBL10T190MNO0AGAGAGAGAGAG" 21400 RETURN 21410 ' THREE OF A KIND 21420 P1$=B$+", this is almost decent." 21430 P2$="With another pair it would be good!" 21440 PLAY"MBL10T190MNO0ABCDEFGABCDEFGABCDEFGABCDEFG" 21450 RETURN 21460 ' STRAIGHT 21470 P1$="Pay off is pretty good on this." 21480 P2$="Take a straight any day!" 21490 PLAY"MBL10T190MNO3ABGABGABGABGABGABGABGABGABGABG" 21500 RETURN 21510 ' FLUSH 21520 P1$="I guess you could say I'm `flushed'!" 21530 P2$="Know what I mean?" 21540 PLAY"MBL10T190MNO1ABCBABCBABCBABCBABCBABCBABCBA" 21550 RETURN 21560 ' FULL HOUSE 21570 P1$="Damn good, "+B$+"!" 21580 P2$="Keep this up and you'll bust us." 21590 PLAY"MBL10T190MNO5ADFP64ADFP64ADFP64ADFP64ADFP64ADFP64ADFP64ADFP64" 21600 RETURN 21610 ' FOUR OF A KIND 21620 P1$="Nice hand and payoff!" 21630 P2$="You're hot now, "+B$+"." 21640 PLAY"MBL10T190MNO5ABCP64ABCP64ABCP64ABCP64ABCP64ABCP64ABCP64ABCP64" 21650 RETURN 21660 ' STRAIGHT FLUSH 21670 P1$="Good grief!" 21680 P2$="One more like that and I'm gone!!!" 21690 PLAY"MBL10T190MNO5AADP64AADP64AADP64AADP64AADP64AADP64AADP64AADP64" 21700 GOTO 21050 21710 ' ROYAL STRAIGHT FLUSH 21720 P1$="JACKPOT, "+B$+"!" 21730 P2$="That's the big one and it PAYS!" 21740 PLAY"MBL10T190MNO5ABAP64ABAP64ABAP64ABAP64ABAP64ABAP64ABAP64ABAP64" 21750 RETURN 21999 ' END OF MODULE 22000 ' DOUBLE OR NOTHING 22010 IF VAL(ACCT$)<>0 THEN 22080 22020 LOCATE 6,1:PRINT K$; 22030 PLAY"MBL32T255MSO4FFFFFFFFFFGGGGGGGGGGGGFFFFFFFFFF" 22040 LOCATE 6,3:PRINT B$+", you're broke !"; 22050 LOCATE 7,3:PRINT "I'm sending you to see Sharky....."; 22060 FOR A=1 TO 2500:NEXT A 22070 GOSUB 13000 22080 LOCATE 6,1:PRINT K$; 22085 LOCATE 7,1:PRINT K$; 22090 LOCATE 6,3:PRINT "Would you like to bet on the next"; 22100 LOCATE 7,3:PRINT "card, double or nothing? (Y/N)"; 22110 BEEP 22120 A$=INKEY$ 22130 IF A$="Y" OR A$="y" THEN 22170 22140 IF A$="N" OR A$="n" THEN 22720 22150 DEF SEG:POKE 106,0 22160 GOTO 22120 22170 ' BET ON NEXT CARD 22180 DEF SEG:POKE 106,0 22190 GOSUB 11000 22200 FOR A=5 TO 33 STEP 7 22210 FOR I=11 TO 18 22220 LOCATE I,A:PRINT H$; 22230 NEXT I 22240 NEXT A 22250 FOR A=20 TO 24 22260 LOCATE A,18:PRINT L$; 22270 NEXT A 22280 LOCATE 6,1:PRINT K$; 22290 LOCATE 6,3:PRINT "Do you think the next card is higher"; 22300 LOCATE 7,3:PRINT "or lower than `8'? (H/L)"; 22310 A$=INKEY$ 22320 IF A$<>"H" AND A$<>"h" AND A$<>"L" AND A$<>"l" THEN 22310 22330 IF B(52)=0 THEN D(3)=C(6+T) 22340 IF B(52)=0 THEN C(6+T)=0 22350 IF B(52)>0 THEN D(3)=B(6+T) 22360 IF B(52)>0 THEN B(6+T)=0 22370 D(1)=0:D(2)=0:D(4)=0:D(5)=0 22380 GOSUB 14000 22390 COLOR 0,2,2 22400 IF A$="H" AND RANK>7 THEN 22500 22410 IF A$="L" AND RANK<7 THEN 22500 22420 IF A$="H" AND RANK<=7 THEN 22440 22430 IF A$="L" AND RANK>=7 THEN 22440 22440 ' PLAYER LOSES 22450 WIN!=0 22460 Q1$="Not exactly what you needed....." 22470 Q2$="Maybe next time, "+B$+"." 22480 PLAY"MBL10T200MNO1GGFAGGFAGGFAGGFAGGFAGGFABABABABA" 22490 GOTO 22590 22500 ' PLAYER WINS 22510 WIN!=BET!*2 22520 WIN$=STR$(WIN!) 22530 IF LEN(WIN$)>8 THEN WIN$=LEFT$(WIN$,8) 22540 WIN!=VAL(WIN$) 22550 Q1$="Good night, Loretta! A winner!" 22560 Q2$=B$+", you're okay!" 22570 PLAY"mbl12t255mno3abcdeabcdeabcdeabcdeabcdedcba" 22580 GOTO 22590 22590 ' PRINT RESULTS 22600 ACCT!=ACCT!+WIN! 22610 ACCT$=STR$(ACCT!) 22620 IF LEN(ACCT$)>8 THEN ACCT$=LEFT$(ACCT$,8) 22630 ACCT!=VAL(ACCT$) 22640 WIN$=STR$(WIN!) 22650 LOCATE 6,1:PRINT K$; 22655 LOCATE 7,1:PRINT K$; 22660 LOCATE 6,3:PRINT Q1$; 22670 LOCATE 7,3:PRINT Q2$; 22680 COLOR 0,7,2:LOCATE 23,29:PRINT L$ 22690 LOCATE 23,(14-(LEN(ACCT$))):PRINT ACCT$;:COLOR 0,2,2 22700 FOR A=1 TO 4000: NEXT A 22710 RETURN 22720 ' ERASE VALUE ON SCREEN 22730 DEF SEG:POKE 106,0 22740 FOR A=20 TO 24 22750 LOCATE A,18:PRINT L$; 22760 NEXT A 22770 RETURN 22999 ' END OF MODULE 23000 ' RESET & RESTART SEQUENCE 23010 IF VAL(ACCT$)<>0 THEN 23080 23020 LOCATE 6,1:PRINT K$; 23030 PLAY"MBL32T255MSO4FFFFFFFFFFGGGGGGGGGGGGFFFFFFFFFF" 23040 LOCATE 6,3:PRINT B$+", you're broke !"; 23050 LOCATE 7,3:PRINT "I'm sending you to see Sharky....."; 23060 FOR A=1 TO 2500:NEXT A 23070 GOSUB 13000 23080 LOCATE 6,1:PRINT K$; 23090 DEF SEG:POKE 106,0 23095 LOCATE 7,1:PRINT K$; 23100 LOCATE 6,3:PRINT "Ready for another hand? (Y/N)"; 23110 A$=INKEY$ 23120 IF A$="Y" OR A$="y" THEN 23240 23130 IF A$="N" OR A$="n" THEN 23160 23140 DEF SEG:POKE 106,0 23150 GOTO 23110 23160 DEF SEG:POKE 106,0 23170 LOCATE 6,1:PRINT K$; 23180 LOCATE 6,3:PRINT "Are you ready to leave? (Y/N)"; 23190 A$=INKEY$ 23200 IF A$="Y" OR A$="y" THEN RETURN 23210 IF A$="N" OR A$="n" THEN 23080 23220 DEF SEG:POKE 106,0 23230 GOTO 23190 23240 ' RESET & RESTART SEQUENCE 23250 FOR A=1 TO 52 23260 IF A>4 THEN 23280 23270 F(A)=0 23280 IF A>13 THEN 23300 23290 E(A)=0 23300 A(A,2)=0:B(A)=0:C(A)=0 23310 NEXT A 23320 ' ERASE CARDS WAS HERE 23330 LOCATE 6,1:PRINT K$; 23340 LOCATE 6,3:PRINT "Just a second while I gather the"; 23350 LOCATE 7,3:PRINT "cards and shuffle ....."; 23360 FOR A=5 TO 33 STEP 7 23370 FOR I=11 TO 18 23380 LOCATE I,A:PRINT H$; 23390 NEXT I 23400 NEXT A 23410 RETURN 1220 23999 ' END OF MODULE 24000 ' READY TO QUIT 24010 FOR A=5 TO 33 STEP 7 24020 FOR I=11 TO 18 24030 LOCATE I,A:PRINT H$; 24040 NEXT I 24050 NEXT A 24060 FOR A=20 TO 24 24070 LOCATE A,18:PRINT L$; 24080 NEXT A 24090 LOCATE 6,1:PRINT K$; 24100 LOCATE 6,3:PRINT "Sorry you're leaving so soon."; 24110 LOCATE 7,3:PRINT "Hope to see you again, "+B$+"."; 24120 FOR A=1 TO 4000: NEXT A 24130 IF VAL(LOAN$)>0 THEN GOSUB 24590 24140 ACCT!=VAL(ACCT$) 24150 LOCATE 6,1:PRINT K$; 24160 LOCATE 6,3:PRINT "We all appreciate your business and"; 24170 IF LEFT$(B$,2)="Mr" OR LEFT$(B$,4)="BUCK" OR B$="FRIEND" THEN 24240 24180 LOCATE 7,3:PRINT "I'll take care of your account."; 24190 PLAYACCT$=LEFT$(B$,8)+".ACC" 24200 OPEN PLAYACCT$ FOR OUTPUT AS #1 24210 LAST$=DATE$ 24220 PRINT#1,ACCT$:PRINT#1,LOAN$:PRINT#1,LAST$:CLOSE 24230 GOTO 24260 24240 LOCATE 7,3:PRINT "thanks for coming in !!"; 24250 FOR A=1 TO 1500:NEXT A 24260 R$="AAABBBCCDDEEFFGGGGFFEEDDCCBBBAAA" 24270 FOR A=0 TO 6 24280 COLOR 7,A,A:CLS 24290 LOCATE 13,7:PRINT "* Goodbye from BUCK MANN's *" 24300 PLAY"MBL41MLO2T175XR$;" 24310 NEXT A 24320 COLOR 23,6,6:LOCATE 13,7:PRINT "* Goodbye from BUCK MANN's *" 24330 PLAY"MBL50MLO3T200XR$;XR$;" 24340 FOR A=1 TO 500:NEXT A:COLOR 7,0,0:CLS 24350 END 24360 ' NOTIFY PLAYER OF INTEREST 24370 LOCATE 6,1:PRINT K$; 24375 LOCATE 7,1:PRINT K$; 24380 LOCATE 6,3:PRINT "Since you can't make a payment on"; 24390 LOCATE 7,3:PRINT "your loan this time....."; 24400 FOR A=1 TO 4000:NEXT A 24410 LOCATE 6,1:PRINT K$; 24415 LOCATE 7,1:PRINT K$; 24420 LOCATE 6,3:PRINT "I HAVE to add 10% extra interest."; 24430 LOCATE 7,3:PRINT "Your loan balance is now $"+LOAN$+"."; 24440 FOR A=1 TO 4000:NEXT A 24450 RETURN 24460 ' NOTIFY PLAYER OF PAYMENT 24470 LOCATE 6,1:PRINT K$; 24480 LOCATE 6,3:PRINT "Oh, "+B$+", I have to deduct for"; 24490 LOCATE 7,3:PRINT "your loan."; 24500 FOR A=1 TO 4000: NEXT A 24510 LOCATE 6,1:PRINT K$; 24520 LOCATE 6,3:PRINT "Your `adjusted' account is $"+ACCT$+"."; 24530 LOCATE 7,3:PRINT "Your loan balance is now $"+LOAN$+"."; 24540 FOR A=1 TO 4000: NEXT A 24550 LOCATE 6,1:PRINT K$; 24560 LOCATE 6,3:PRINT "Sharky really appreciates it!"; 24570 FOR A=1 TO 3000: NEXT A 24580 RETURN 24590 ' DEDUCT LOAN PAYMENT 24600 ACCT!=VAL(ACCT$) 24610 LOAN!=VAL(LOAN$) 24620 IF ACCT!>LOAN! THEN 24630 ELSE 24660 24630 ACCT!=ACCT!-LOAN! 24640 LOAN!=0 24650 GOTO 24690 24660 IF ACCT!>0 THEN 24670 ELSE 24720 24670 LOAN!=LOAN!-(ACCT!-1) 24680 ACCT!=1 24690 LOAN$=STR$(LOAN!) 24700 ACCT$=STR$(ACCT!) 24710 GOSUB 24460:RETURN 24720 LOAN!=INT(LOAN!*1.1) 24730 ACCT!=0 24740 LOAN$=STR$(LOAN!) 24750 ACCT$=STR$(ACCT!) 24760 GOSUB 24360:RETURN 24999 ' END OF MODULE 59000 ' END- NO MONEY, NO LOAN 59010 LOCATE 6,1:PRINT K$; 59020 LOCATE 6,3:PRINT "Well, "+B$+", I guess you're done"; 59030 LOCATE 7,3:PRINT "for now anyway."; 59040 FOR A=1 TO 4000: NEXT A 59050 LOCATE 6,1:PRINT K$; 59060 LOCATE 6,3:PRINT "Maybe you'll have better luck next"; 59070 LOCATE 7,3:PRINT "time at BUCKMANN's."; 59080 FOR A=1 TO 4000: NEXT A 59090 IF LEFT$(B$,2)="Mr" OR LEFT$(B$,4)="BUCK" OR B$="FRIEND" THEN 24260 59100 IF VAL(LOAN$)=0 OR LOAN!=0 THEN 59200 59110 LOAN!=INT(LOAN!*1.1) 59120 LOCATE 6,1:PRINT K$; 59130 LOCATE 6,3:PRINT "I've added 10% to your loan balance"; 59140 LOCATE 7,3:PRINT "since you're missing a payment."; 59150 FOR A=1 TO 3000:NEXT A 59160 LOCATE 6,1:PRINT K$; 59170 LOCATE 6,3:PRINT "You understand, huh, "+B$+"."; 59180 LOCATE 7,3:PRINT "Business is just business....."; 59190 FOR A=1 TO 3000:NEXT A 59200 PLAYACCT$=(LEFT$(B$,8))+".ACC" 59210 ACCT$=STR$(ACCT!) 59220 LOAN$=STR$(LOAN!) 59230 LAST$=DATE$ 59240 OPEN PLAYACCT$ FOR OUTPUT AS #1 59250 PRINT#1,ACCT$:PRINT#1,LOAN$:PRINT#1,LAST$ 59260 CLOSE 59270 LOCATE 6,1:PRINT K$; 59280 LOCATE 6,3:PRINT "Oh, by the way, "+B$+"...."; 59290 FOR A=1 TO 4000: NEXT A 59300 LOCATE 6,1:PRINT K$; 59310 LOCATE 6,3:PRINT "DON'T LET THE DOOR HIT YOU IN THE"; 59320 LOCATE 7,3 59330 LOCATE 7,3:PRINT "#&@ ON THE WAY OUT !!! Ha ha ha !!"; 59340 FOR A=1 TO 4000: NEXT A 59350 CLEAR 59360 PLAY"MB" 59370 SOUND 100,5:SOUND 200,5:SOUND 400,5:SOUND 800,5:SOUND 1600,5:SOUND 3200,5:SOUND 6400,5:SOUND 12800,5:SOUND 37,100 59380 FOR A=0 TO 6 59390 COLOR 15,A,A:CLS:LOCATE 13,12:PRINT "BYE BYE, SUCKER !!":FOR F=1 TO 250:NEXT F 59400 NEXT A 59410 COLOR 31,6,6:LOCATE 13,12:PRINT "BYE BYE, SUCKER !!" 59420 FOR A=1 TO 4000: NEXT A 59430 COLOR 7,0,0:CLS:END 59999 ' END OF MODULE 60000 ' RANDOMIZE ROUTINE 60010 RANDOMIZE((VAL(RIGHT$(TIME$,2)))+(VAL(LEFT$(TIME$,2)))+(VAL(MID$(TIME$,4,2)))) 60020 RETURN 60999 ' END OF MODULE 61000 ' SUBROUTINE FOR RELATIVES 61010 LOCATE 6,1:PRINT K$; 61020 PLAY"MBL16T150MLO3AAAAAAEGAAAAAAEGAAAAAAEGAAAAAAAA" 61030 LOCATE 6,3:PRINT B$+" !!!"; 61040 FOR A=1 TO 1500:NEXT A 61050 LOCATE 7,3:PRINT "Welcome to BUCK MANN's!"; 61060 FOR A=1 TO 2500:NEXT A 61070 LOCATE 6,1:PRINT K$; 61080 LOCATE 6,3:PRINT "BUCK has standing orders that you"; 61090 LOCATE 7,3:PRINT "play for FREE... on the house."; 61100 FOR A=1 TO 4000: NEXT A 61110 ACCT$="10000" 61120 IF B$="LOU" OR B$="LOUIS" THEN B$="Mr. XXXX" ELSE B$="Mrs. XXXX" ' ADD YOUR RELATIVE'S LAST NAMES 61130 LOCATE 6,1:PRINT K$; 61140 LOCATE 6,3:PRINT B$+", this is from BUCK."; 61150 FOR A=1 TO 1500:NEXT A 61160 LOCATE 7,3:PRINT "Enjoy your stay and best of luck!"; 61170 FOR A=1 TO 2500:NEXT A 61180 RETURN 61999 ' END OF MODULE 62000 ' BUCK MANN AT BUCK MANN's 62010 ACCT$="50000" 62020 B$="BUCK" 62030 LOCATE 6,1:PRINT K$; 62040 PLAY"MBL30T200MLO5AGEAGEAGEAGEAGEAGEAGEAGEAGEAGEAGE" 62050 LOCATE 6,3:PRINT "BUCK !!!!!"; 62060 FOR A=1 TO 1500:NEXT A 62070 LOCATE 7,3:PRINT "Damn, it's good to see you, Boss !"; 62080 FOR A=1 TO 2500:NEXT A 62090 LOCATE 6,1:PRINT K$; 62100 LOCATE 6,3:PRINT "Here's some `play' money for you."; 62110 LOCATE 7,3:PRINT "The usual $ "+ACCT$+" for Mr. Buck Mann."; 62120 FOR A=1 TO 4000: NEXT A 62130 GOSUB 60000 62140 B=(INT(RND*5)+1) 62150 ON B GOSUB 62180,62230,62290,62340,62390,62390 62160 FOR A=1 TO 4000: NEXT A 62170 RETURN 62180 ' GOOD NIGHT AT BUCK MANN's 62190 LOCATE 6,1:PRINT K$; 62200 LOCATE 6,3:PRINT "Today's been pretty good, BUCK."; 62210 LOCATE 7,3"PRINT "YOU've probably made $ 250000 easy!"; 62220 RETURN 62230 ' BAD NIGHT AT BUCK MANN's 62240 LOCATE 6,1:PRINT K$; 62250 LOCATE 6,3:PRINT "Hate to say it, Boss, but....."; 62260 FOR A=1 TO 1500:NEXT A 62270 LOCATE 7,3:PRINT "business sucks. Only made $ 75000."; 62280 RETURN 62290 ' SO-SO NIGHT AT BUCK MANN's 62300 LOCATE 6,1:PRINT K$; 62310 LOCATE 6,3:PRINT "As of the last count, we had $ 90000."; 62320 LOCATE 7,3:PRINT "Not too bad, huh, BUCK."; 62330 RETURN 62340 ' FIGHT AT BUCK MANN's 62350 LOCATE 6,1:PRINT K$; 62360 LOCATE 6,3:PRINT "Had a fight tonight, BUCK."; 62370 LOCATE 7,3:PRINT "No damage, except to the two bums!"; 62380 RETURN 62390 ' GREAT NIGHT AT BUCK MANN's 62400 LOCATE 6,1:PRINT K$; 62410 LOCATE 6,3:PRINT "Boss! We've made $ 500000 tonite !!"; 62420 FOR A=1 TO 1500:NEXT A 62430 LOCATE 7,3:PRINT "Some `highroller' blew his roll!"; 62440 RETURN 62999 ' END OF MODULE